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T I TLE 


TSDUMP 


ENABL 


LC 


DSAEL 


GBL 


ENABL 


AMA 


CSECT 


TSDUMP 


RAD 50 


/DMP/ 



"i S X -P 3 u i ; c r n s h d u m p 



; System overlay id 



This module implements the TSX-Plus crash dump facility. 



Copyright < c > 1985. 
S&M Computer Systems.. 
Nashville) Tennessee 
All rights reserved. 



int.. 
USA 



The crash dump facility provides diagnostic information when 
a fatal system error occurs. It is entered with interrupts 
disabled and prior initialization of several stored values. 



TSDUMP 



! i>X~i- 1 us 
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GLUUAL Definitions. 
. GLOBL DODUMP 



GLOBAL References. 



8 
9 
10 
11 
12 
13 
14 
15 
1 6 
17 
18 
19 



GLOBL SS, SSEND, INTSTK, INTSND, JSTK. JSTKND 

GLOBL VDMTCR.PSW 

GLOBL DMPTXT, DMPOVL, DMPHND, D.TEARG, DIE-PC, DIESP 

GLOBL TSGEN, TSTIO, TSLXEC, TSEMT, TSINIT 

GLOBL TRPAR5* KPAR6, VPAR5, VPAR6 

GLOBL CORUSR, NUMDPV, MAXDEV 

GLOBL NPL, NSL, NDLi NIOL. NLINES, TNHL 

GLOBL SYSDAT > System 

GLOBL SYTIMH, SYTII1L > System 

GLOBL TK1SEC i Number 

GLOBL OVRADD \ Address 



date (TSGEN) 

time (TSGEN) 

of ticks per 

of overlay 



second 
tables 
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> MACRO Definitions. 



4 

5 

6 

7 

3 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



DISABLE macro used to disable all interrupts. 



MACRO DISABL- 
ES #340, €#PSW 
ENDM DISABL 



; DISABLE INTERRUPTS 



STKDEF macro used to define a stack where: 
BASE = base of stack 
TOP = top of stock 
LENGTH = length (in words) of stack 



base: 
t o p : 



MACRO STKDEF top, base, length 

; Base address of stack 
; Allocate stack space 
; Top address of stack 

ENDM STKDEF 



BLKW length 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



PRIN'I macro used to define a print string where 
stradr = address of asciz string to print 



. MACRO 


PRINT ?stradT 


. NARG 


ARG 


. IF 


ME, ARG 


MOV 


stradr, RJ 


. ENDC 


; UE> ARG 


CALL 


OUTSTR 


. ENDM 


PRINT 



■> Determine number of arguments 
; On 1 u if argument exists 
; Point to string address 

; Display asciz string 



TTYOUT macro used to output a single character where 

char = character to output 



.MACRO TTYOUT ?< liar 

. NARG ARG 

. JF NE, ARG 

MOVB char,rO 

. ENDC } NE ARC 

CALL OUTCHR 

. ENDM TTYOUT 



; Determine number of arguments 
iOnly if argument exists 
; Get output character 

; Display ascii character 



TSDUMP 
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TBEG macro used to define 1 a table entry print field where: 



L.ABEL 

NAME 

R OWN AM 

ATTR 

S1NDX 

EINDX 

. MACRO 
. NARG 
. PSECT 

. PSECT 
. PSECT 



PSECT 



PSECT 



PSECT 



= address label of table 

= table t i 1 1 e 

= roiu name label 

= index number attribute 

= starting index 

= ending index 



PSECT 
ENDM 



TBEG 
ARGS 
DUMP 
label 
TSDUMP 
STRING 
STRADD 
. ASCII 
. BYTE 
DUMP 
. WORD 
. IF 



. ENDC 

TENABL 

STRING 

STRADD 

. ASCII 

. BYTE 

DUMP 

. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
TSDUMP 
TBEG 



label » name> 



/name/ 


STRADD 

E«, ARGS-2 

TENABL - 

. MLXIT 

; LG, ARGS-2 

-■■■■ 1 



/r own am/ 
200 



STRADD 
attr 
STRADD 
i> i n d x 
e i n d :< 



rouinanti at 
Number 
Define 
Define 
Res tor 
Define 
Point 
Store 
Termin 
Define 
Store 
Only t 
Flag 1 
Termin 



Flag t 

Define 

Point 

Store 

Termin 

Define 



tr* sindx> eindx 

of arguments to macro call 

DUMP program section 

starting address 
e TSDUMP program section 

TEXT program section 
to the starting address 
the ascii label 
ate as asciz string 

DUMP program section 
the string address 
wo arguments passed 
ist definition in progress 
ate macro expansion 

able definition in progress 
STRING program section 

to the starting address 

the ascii label 

ate as asciz string 
DUMP program section 



Store the string address 
Store table attributes 
Store the string address 
Store starting table index 
Store ending table index 
Restore TSDUMP program section 
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PVAL 



macro 

NAME 

LABEL 

ATTR 

SI NX 

EJNX 



used to define a single print field where: 
~ a s c i i s t v i n g t i t J. e 

- address label containing print value 
= field attributes 
== starting table index 
-• ending table index 
Format attvi botes: 

fRJUST = (bit 14) right justify (default is left) 
$ZRPAD - (bit 13) zero pad (default is blank) 
Storage attributes: 

$BYfE = (bit O) storage requirement (default is word) 
$DEC -■ (bit 2) decimal representation (default is octal) 
$RAD50 ~ (bit 3) radSO representation 



Definition of field attribute bit definitions. 



040000 
020000 

00000.1 
000002 
000004 



liRviUST = 40000 
*ZRPAD = 20000 
Storage attributes. 
*BYTE = 1 
*DEC = 2 
*RAD50 a 4 



. MACRO 


PVAL name.- label, at 


. PSECT 


STRING 






STRADD 


:-.: 




. ASC 1 1 


/namr/ 




. BYTE 


POO 


. PSECT 


DUMP 






. WORD 


STRADD 




. WORD 


attr 




. GLOBL 


I a b e 1 




. WORD 


1 a b c 1 




. IF 


NE> tenabl 




. WORD 


s i n d :< 




. WORD 


e i vi d x 




. ENDC 


i HE, tenabl 


. PSECT 


TSDUMP 




. ENDM 


PVAL 





; Right justi f y 
i Zero pad 

; Byte storage cell 

; Decimal numeric representation 

; RadSO representation 

s i n d x > eindx 
Define STRING program section 
Point to the starting address 
Store the ascii label 
Terminate as asciz string 
Define DUMP program section 
Store the string address 
Store field attributes 
Declare variable as global 
Store location of value field 
Has table definition been enabled? 
Store starting table index 
Store ending table index 

; Restore TSDUMP program section 
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TEND macro used to define?' the end of a table or list. 



4 
5 
6 
7 

a 

9 



MACRO TEND 
PSECT DUMP 

. WORD 
PSECT TSDUMP 
ENDM TEND 







; Define DUMP program section 

; End of table or list 

i Restore TSDUMP program section 



( 

c 

, < 

1 c 

< 
< 
< 



TSDUMP — TSX-Plus crash dump 
Output list for registers 



1 
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5 
6 
7 
8 
9 
10 
11 

13 
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17 
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. SBTTL Output list for- registers 

j — . , — „ . — — «-— ™-«* — , »-^*-.-— — — _ _„ — 

> Generate list for output of register contents. 



000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 



TBEO 


PRTREG, <Reg ister Conteni 


PVAL 


<R0>, BVRO ; 


PVAL 


■CR1>, SVRi 


PVAL 


<R2>, SVR2 


PVAL 


<R3>, SVR3 ; 


PVAL 


<R4>, SVR4 ; 


PVAL 


<R5>, SVR5 i 


PVAL 


<SP>* DIESP ; 


PVAL 


<PC>, DIEPC ; 


PVAL 


<KPAR 5>, SVPAR5 ; 


PVAL 


<KPAR 6>> SVPAR6 ; 


TEND 





ts> > Beginning of print list 
Register O 
1 
2 
3 
4 
5 



Reg ister 
Reg i ster 
Reg i ster 
Reg ister 
Reg i ster 
Stack pointer 
Program counter 
Kernal PAR 5 
Kernal PAR 6 

i End of print list 



i 
i 
i 
i 
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Output list for TSX-Plus addresses 



1 




2 




3 




4 




5 


000002 


6 


000102 


7 


000002 


S 


000002 


9 


000002 


10 


000002 


11 


000002 


12 


000002 


13 


000002 


14 


000002 
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. SBTTL Output list for TSX-Plus addresses 
Generate list for output of TSX-Plus address values. 



TBEG 


ADDR, <TSX -Plus module a 


d dresses! 


\. 




PVAL 


•CTSGEN >, ADGEN 


Address 


of 


TSGEN 


PVAL 


<TSTIO :>, ADTIO 


Address 


of 


TSTIO 


PVAL 


<TSEXEC>, ADEXEC 


Address 


of 


TSEXEC 


PVAL 


<TSEMT >, ADEHT 


Address 


of 


TSEMT 


PVAL 


<TSINIT>. AD J NIT 


Address 


of 


TSINIT 


PVAL 


<TSTIOX>, ADTIOX 


Address 


of 


TSTIOX 


PVAL 


<TSLOCK>, ADLOCK 


Address 


of 


TSLOCK 


PVAL 


<TSCASH>, ADCASH 


Address 


of 


TSCASH 


TEND 
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MACRO V05. 04 
fields 
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3 




4 




5 


000002 


6 


000166 


7 


000002 


8 


000002 


9 


000002 


10 


000002 


11 


000002 


12 


000002 


13 


000002 


14 


000002 


15 


000002 


16 


000002 


17 


000002 


18 


000002 


19 


000002 


20 


000002 


21 


000002 


22 


000002 




000002 


24 


000002 


25 


000002 


26 


000002 


27 


000002 


28 


000002 


29 


000002 


30 


000002 


31 


000002 


32 


000002 


33 


000002 


34 


000002 


35 


000002 


36 


000002 


37 


000002 


38 


000002 


39 


000002 


40 


000002 


41 


000002 


42 


000002 


43 


000002 


44 


000002 


45 


000002 


46 


000002 


47 


000002 


48 


000002 


49 


000002 


50 


000002 


51 


000002 


52 


000002 


53 


000002 



. SBTTL Output list for miscellaneous Fields 
Generate list for output of miscellaneous fields. 



TBEG 
PVAL 

PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



VMISC, <Misc:ellaneous 
<CLKPC>, CL KPC 
<CLKPS>, CLKPS 
<CSHBAS>, CSHBAS 



CURFRK 

cxbjqb, <*byte: 

CXBOWN, 
DOSCHD, 



:$byte: 

:*byte: 

<$byte: 



<CURFRK 

■CCXBJQB 

■CCXBOWN 

<DOSCHD 

<EXCJOB>> EXCJOB 

<FREIOQ>, PRE 1 00 

<FRKCQE>» FRKCQE 

<FREFRK>» FREFRK 

<FRKPRI>, FRKPRI, <*BYTE: 

<INBSY>, 1NBSY, <*BYTE> 

<INTLVL>, IN7LVL> <*BYTE: 

I Ml PR I 

IOABFL 



-■::iNTPRI>, 
<IQABFL>, 
<LOKBAS>, LOKBAS 
<LOKSWP>, LOKBWP 
<MAPUSR>» MAPUSR, <*BYTE> 
<MEM256>, MEM256, <*BYTE> 
<MEMSWP>» MEMSWP 
<MIOFLG>, M10FLG, <*BYTE> 
<MSGBAS>, MSCBAS 
<NMFREQ>, NMFREQ 
<NUMON>, NUMON, <*BYTE> 
<OUTBSY>, OU'fBSY, <*BYTE> 
<PVON>, PVON, <*BYTE> 
<SPDJOB>, SPDJOB, <*BYTE> 
<SR3FLG>> SR3FLG, <*BYTE> 
<STKLVL>> STKLVL, <*BYTE> 
<TIOBAS>, TIOBAS 
<TOTON>» TOTON* <*BYTE> 
<UBUSMP>, UBUSMP, <*BYTE> 
<UIOCNT>» UIOCNT 
<USP>, USP 
<USRBAS>* USRBAS 
<USRJOB>. USRJOB, <*BYTE> 
<VBUSTP>. VBUSTP, <*BYTE> 
<VCSHNB>> VC8HNB 
<VMXSF>i VNXSF 
<VMXSFC>» VMXSFC 
<VNGR>, VNGR 
•CVNUMDO, VNUMDC 
<VPLAS>, VPLAS 
<VSWPFL>, VSWPFL, <*BYTE> 
<VSWPSL>, VSWPSL 
<VUXIFL>* VUXIFL, <*BYTE> 



values> ; Beginning of print list 
Clock interrupted PC (for PM) 
Clock interrupted PS (for PM) 
Physical add of TSCASH 
Address of current FORK call 
Context block job contents 
Context block job owner 
Do scheduling flag 
Exclusive system job owner 
Free I/O queue head 
Fork queue head 
Free fork queue head 
Fork priority 
Inswap flag 
Interrupt, level 
Interrupt priority 

I/O abort flag (0=rundown; l=abort) 
PAR base of TSLOCK 
Job requiring memory lock 
Job currently mapped 
Extended memory flag 
Job requiring memory expansion 
I/O mapping flag 
PAR base of TSMSG 

Number of free user's queue elements 
Num of hardware lines on 
Outswap flag 

Num of primary and virtual lines on 
SPD job owner 

Extended memory management reg. flag 
Stack level 

Physical add of TSTIOX 
Num of total lines on 
Unibus map flag 
User I/O count 
User stack pointer 
PAR base of TSUSR 
USR job owner 

Bus type (O = UNIBUS; 1 = QBUS) 
Num of generalized cache blocks 
Max num of shared files 
Max num of shared file channels 
Num of global PLAS regions 
Num of shared data cache blocks 
Num of PLAS blocks allocated 
Swap flag (0 ~ swap* 1 = noswap) 



Num of swap file jobs allocated 
Unexpected interrupt (1 = abort) 
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SBTTL Output list for line status tables 



3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
1 4 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
00C002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 



Generate table for output of line status. 



TBEG 

PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



JLIIM, <Job Status Tables! 
<LSW>> LSW, <*rjust'*zrpad; 



IJob>» 



<LSW2>, LSW2, <*R JUST 
<LSW3>, LSW3, <*R JUST 
<LSW4>, LSW4, <*R JUST 
<LSW5>, LSW5, <$RJUST 
<LSW6>, LSW6, <*RJUST 
<LSW7>, LSW7, <*R JUST 
<LSWS>, LSW8, <*RJUST 
<LSW9>, LSW9i <*R JUST 



*ZRPAD> 
$ZRPAD> 
$ZRPAD> 
$ZRPAD> 
*ZRPAD> 
«ZRPAD> 
*ZRPAD> 
*ZRPAD> 



<LSW10># L5W10> <*RJUST i *ZRPAD> 
<LSW1 1>> LSW1 1 > <$RJUST ! *ZRPAD> 
<LSTATE>, LSTATE. <*R JUST ! *ZRPADI 



LBASE, 



<LBASE 

<LPARBS>, LPARBS, <*R JUST 
<LNBLKS>, LNBLKS, <«R JUST 
<LNSBLK>» LNSBLK, 
<LI0CNT>. LIOCNT, 
<LINCNT>, LINCNT, 
<LACTIV>» LACTIV, 
<LPRG1>, LPRG1* <*RAD50> 
<LPRQ2>> LPRG2, <*RAD50> 
<LCDTYP>. LCDTYP, <*RJUST 
<LNPRIM>, LNPRIM, <*RJUST 
<LPARNT>, LPARNT, 
<LBSPRI>, LBSPRI. 



*RJUST!*ZRPAD> 

*ZRPAD> 



♦RJUST 
*RJUST 
*RJUST 
*RJUST 



«ZRPAD> 
$ZRPAD> 
*ZRPAD> 
*ZRPAD> 
*ZRPAD> 



<*RJUST 

<$RJUST 
<LCLUNT>> LCLUNT, <*RJUST 
<LMEMIN>> LMEMIN, <*RJUST 
<LIOHLD>, LIOHLD, <*RJU5T 
<LAFSIZ>, LAFSIZ, <»RJUST 
<LFWLIM>, LFWLIM. <*RJUST 
<LCMPL>> LCMPL, <*R JUST ! *ZRPAD> 
<LSWPBK>> LSWPBK, <*R JUST ! *ZRPAD 
<LJSW>, LJSW, <*RJUST !*ZRPAD> 
<LEMTPC>. LEMTPC, <*RJUST !*ZRPADi 
<LSPND>, LSPND, <*RJUST!*ZRPAD> 
<LXCL>. LXCL, <*RJUST!*ZRPAD>, 1, NPL 



$ZRPAD>, 

*ZRPAD>, 

*ZRPAD> 

*ZRPAD> 

*ZRPAD>, 

*ZRPAD> 

*ZRPAD> 

*ZRPAD> 

*ZRPAD> 



<*BYTE!*DEC>, 1, 

Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job state 
Base 512-block 



NLINES 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 



num of context 
Base PAR of program 
Num of mem pages for job 
Num of mem pages for PLAS 
Active I/O counter 
Input chars pending 
Activ chars pending 
Program name 
Program name 

, TNHL ; Hardware line status 
, NPL+NDL; Primary line index 
Parent number index 
Job base priority 
, NPL+NSL+NDL+NIOL; CL unit 
Num mem pages require 
I/O hold for swap 
Field width activate 
Field limit activate 
Pending completion 
Swap file block num 
Job status word 
Last EMT PC address 
Job . SPND counter 
; Cross connect CL unit index 
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Output list for device handler status 

1 . SBTTL Output list for device handler status 

; Generate table for output of device handler status. 



3 




4 




5 


000002 


6 


000002 


7 


000002 


8 


000002 


9 


000002 


10 


000002 


11 


000002 


12 


000002 


13 


000002 


14 


000002 



TBEG 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



DHAN, CDevice Handler Tables^ <0f f set>> <*BYTE!*DEC>, 0, MAXDEV-1 



<PNAME>, PNAME, <$RAD50> 



<HANENT 

<HANPAR> 

<HANSIZ2 

<HANIOC> 

<DVFLAG 

<DVSTAT> 

<DEVSIZ 



HANENT. <*RJUST> 
HANPAR, <C*RJUST> 
HANS I 2, <*RJUST> 
HAN I OC , <*R JUST> 
DVFLAG, <$R JUST ! *ZRPAD> 
DVSTAT, <*R JUST I *ZRPAD> 
:*RJUSTi*ZRPAD> 



; Proqram name 



; Hand ler 
; Handler 
; Hand ler 
; Hand ler 



entry point 

PAR 

size 

I/O count 



; Device handler flags 

> Device status flags 

> Device size <256 word blks) 



TSDUMP — TSX- 
Data areas 



•P i u 



dump 
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1 



3 






4 






5 






6 






7 




0000 15 


3 




oooo in 


9 




00002.1 


10 




000023 


11 




000055 


12 




000014 


13 






14 






15 






16 






17 


000002 


000000 


18 


000004 


000000 


19 


000006 


000000 


20 


000010 


000000 


21 


000012 


000000 


22 


000014 


000000 


23 




000016 


24 


000016 


000000 


25 


000020 


000000 


26 






27 






28 






29 


000022 


000000 


30 


000024 


000000 


31 


000026 


000000 


32 


000030 


000000 


33 


000032 


000000 


34 


000034 


000000 


35 


000036 


000000 


36 


000040 


oocooo 


37 






38 






39 






40 






41 






42 


000042 


000000 


43 


000044 


000000 


44 


000046 


000000 


45 


000050 


000000 


46 


000052 


000000 


47 






48 






50 


000054 




51 


000106 




52 


000140 




53 


000172 




54 


000224 




55 


000256 




56 






57 







. BBTTL Data areas 

/ — — . « ™ — „._..,.«. — * — — — -«. 

; Internal storage. 

i 

; Asr, i cinments. 



OR 

LP 

CTRLQ 

CTRLS 

DASH 

NCQL 



15 
12 
21 
23 



Carriage return 

Line feed 

Control-Q 

Control~S 

Dash 

Number of columns for table output 



Internal stack and register contents. 



SVRO: 
SVR 1 : 
SVR2: 
SVR 3: 
SVR 4: 
SVR 5: 
SVREO 
SVPAR5: 
SVPAR6: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 

WORD 
WORD 















; Saved registers <r5 to rO) 
; Past saved registers 
; Saved kernel PAR 5 
> Saved kernel PAR 6 



Root module addresser;. 



ADGEN: 

ADTIO: 

ADEXEC: 

ADEMT: 

AD I NIT 

ADT10X 

ADLOCK 

ADCASH 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 











o 



Address 
Address 
Address 
Address 
Address 
Address 
Address 
Address 



of 
of 
of 
of 
of 
of 
of 
of 



TSGEN 

TSTIO 

TSEXEC 

TSEMT 

TSINIT 

TST10X 

TSLQCK 

TSCASH 



Miscellaneous storage. 



Word bounded storage 



TBUF 
TCSR 
RBUF 
RCSR 
COL: 



WORD 
WORD 
WORD 
WORD 
WORD 











; Transmit 
; Transmit 
; Receiver 
; Receiver 



buffer 
CSR 

buffer 
CSR 



Format tables for columnar 



TSCOL 

TECOL 

TSINX 

TE.INX 

TATT: 

TADR: 



. BLKW 
. BLKW 
. BLKW 
. BLKW 
. BLKW 
. BLKW 



NCOL+1 
NCOL+1 
NCOL+1 
NCOL+1 
NCOL+1 
NCOL+1 



i Current column position 

o u t p u t . 

•Starting column on table output 
j Ending column on table output 
.; Starting index for column 
i Ending index for column 
■> Attributes of table 
i Base address of table 



Data. 



TSDUMP — TSX 
Data areas 
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58 

59 000310 
000316 
000324 
000332 

60 

61 

62 

63 000340 

64 

65 

66 

67 

68 000341 

69 000357 

70 000375 

71 000407 

72 000425 

73 000431 

74 000437 

75 000441 

76 000444 

77 000475 

78 000506 

79 000522 

80 000530 

81 000547 

82 000553 

83 000601 

84 000621 

85 000634 

86 000662 
87 

88 



03 7266 
004322 
040724 
057114 



02.1 



101 
123 
117 
1 04 
040 
040 
014 

oir* 

124 

123 
111 
105 
123 
040 
111 
111 
106 
123 
112 



023112 
050601 
004617 
054756 



162 


145 


16w 


145 


075 


040 


200 


012 


123 


171 


156 


115 


164 


057 


156 


156 


1 57 


171 


157 



050572 
040726 
073630 
014713 



MONTH: 



RAD50 /JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC/ 



147 
147 
145 
1 66 
040 
040 

200 
130 
163 
164 
124 
141 
040 
166 
164 
162 
163 
142 



Butt- bounded storage. 



XFLG: 



BYTE 



CTRLQ 



XON/XOFF flag 



Output strings. 



TXARG 

TXSEO 

TXOID 

TXDEV 

EGSTR 

SPSTR 
FF: 

CRLF: 

OVLREG: 

STKSS: 

STKINT 

STKEMT 

STKCNT 

STKDLM 

INVSTK 

INTLEV 

FRKL.EV 

STKOVR 

CUR JOB 



ML 1ST 
ASCII 
ASC 1 1 
ASC 1 1 
ASCII 
ASC 1 1 
ASC 1 1 
BYTE 
BYTE 
ASCIZ 
ASC I Z 
ASCIZ 
ASC I Z 
ASCIZ 
ASC 1 1 
ASCIZ 
ASC I Z 
ASC I Z 
ASC I Z 
ASCII 
L I ST 
EVEN 



BEX 

/Arg. value = /<200> 
/Seg. value ~ /<200> 
/Overlay: /<200> 



/Device name: 
/ = /<200> 
/ /<£?00> 
14* 200 
CR* LF, 200 



/<200> 



; Form feed 

; Carriage return 



/ line feed 



/TSX-Plus overlay regions/ 

/System /<200> 

/Interrupt / <200> 

/EMT /<200> 

/Stack Contents/ 

\ / \<200> 

/Invalid stack pointer/ 

/Interrupt Level/ 

/Fork Level/ 

/System stack overflow/ 

/Job executing at time of dump/<200> 

BEX 



TSDUMP — TSX-PIus crash dump 
DODUMP Dump entry point 
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SBTTL DODUMP — Dump entry point 



3 

4 

5 

6 

7 

3 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

2.1. 

22 

23 

24 

26 
27 
28 



000720 



000720 012737 001124' 000004 



30 
31 
32 
33 

34 000726 

35 000732 

36 000736 

37 000740 

38 000742 

39 000746 

40 000752 

41 000760 

42 000764 

43 000770 

44 000772 

45 000774 

46 001000 

47 001004 
48 

49 
50 

51 001012 

52 001020 

53 001026 

54 001032 

55 001036 

56 001040 



013705 
042705 
005015 
10341.1 
010537 
010537 
062737 
1 1 7700 
062705 
005015 
103453 
010537 
010537 
062737 



0000000 
000004 



000050 
000046 
000002 
1 77062 
000004 



000044 
000042 
000002 



000046 



000042 



TSDUMP entry point. TSDUMP is entered from TSEXEC with the 
following known values: 

DMPTXT - Asciz text of die message 

DMPOVL - Rad50 overlay name < or zero) 

DMPHND ~ RadSO handler name (or zero) 

DIEMSG = Address of die message 

D.IEARG = Argument of die message 

DIESP = Original stack pointer at time of crash 

DIEPC = Program counter of DIE call 

TRPAR5 = PAR 5 value at trap 

SP = All recti sters - RO, Ri, R2, R3, R4, R5 

A non-interrupt output routine is used to display information to 
an XON/XOFF device or a parallel port printer. The following 
in format ion i & output: 

Registers (RO through R5) 

SP < stack pointer) 

PC (proqram counter from error) 

PSW 

Stack contents 

Miscellaneous data cells 

Line definition tables 

Device definition tables 

DODUMP : 

Disable interrupt and locate the dump device registers. 

Disable all interrupts 
Capture the trap 4 address 
Retain disable interrupt status 
Find the display device CSR 
Adjust for receiver CSR 
Check for receiver CSR 
Br if receiver not available 
Insert receiver address 
Insert receiver buffer 

offset 2 from CSR 
Throw away any pending input 
1$: ADD #4i R5 ; A just to transmit CSR 

Check for transmitter CSR 

Br if transmitter not available 

Insert transmiter CSR 

Insert transmiter buffer address 

offset 2 from CSR 

Save values on entry (rep i sters, kernel mapping, etc. ). 



DISABL 




MOV 


#DMPTRP, <»#4 


MOV 


#340, £#6 


MOV 


VDMTCR, R5 


BIC 


#4, R5 


CLR 


<R5) 


BCS 


1* 


MOV 


R5, RCSR 


MOV 


R5, RBUF 


ADD 


#2, RBUF 


MOVB 


©RBUF, RO 


ADD 


#4, R5 


CLR 


<R5> 


BCS 


50* 


MOV 


R5, TCSR 


MOV 


R5, TBUF 


ADD 


#2, TBUF 



013737 
012705 
012700 
012645 
077002 



OOOOOOG 000020 
0000000 000016 
000016' 
000006 



10*: 



MOV 
MOV 
MOV 
MOV 
MOV 
SOB 



@#KPAR6, SVPAR6 
TRPAR5, SVPAR5 
#SVRES, R5 
#6, RO 

<SP)+, ~<R5) 
RO, 10* 



Save kernel PAR 6 

Save kernel PAR 5 

Save registers on current stack 

Save registers R0-R6 

Save all the register contents 

Continue until all register saved 



TSDUMP — TSX-Plus crash dump 
DODUMP — Dump entry point 
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58 
59 
60 
61 
62 



001 
001 



63 001 

64 001 

65 001 

66 001 

67 001 

68 001 

69 001 

70 001 

71 001 

72 001 
73 

74 
75 

76 001 

77 001 



042 
052 
056 
062 
066 
072 
076 
102 
106 
112 
116 



124 
132 



004737 
004737 
004737 
004737 
004737 
004737 
004737 
004737 
004737 
000000 



052766 
000002 



001134' 
001462' 
002400 ' 
001626' 
001652' 
001776' 
002300 ' 
002460 ' 
002472 ' 
002072 ' 



Output information concerning the current state. 



000001 00000? 





PRINT 


#FF 




CALL 


DATTIM 




CALL 


ERROR 




CALL 


JOB 




CALL 


REG 




CALL 


MODADR 




CALL 


OVRADR 




CALL 


MISC 




CALL 


LINE 




CALL 


DEVICE 




CALL 


STACK 


50*: 


HALT 




:• Trap 


to 4 


c ontrol . 


DMPTRP: 


BIS 
RTI 


#li 2(SP) 



Output form feed character 
Output date and time information 
Output error status information 
Output current job information 
Output the register contents 
Output TSX-Plus module addresses 
Output TSX-Plus overlay regions 
Output miscellaneous information 
Output line table information 
Output handler table information 
Output the stack contents 
Now where to 7 



:• Buffer not found* 
; Return from trap 



,et c~bit 



TSDUMP ~ 
DATTIM ~ 

.1 



- TSX-Plus era 
Display date 



;.h dump MACRO VOS. 04 
and time information 
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3 
4 








5 


001134 






6 


001144 


013705 


0000000 


7 


001150 


001451 




a 


001152 


01050.1 




9 


001154 


072127 


1 77773 


10 


001160 


042701 


177740 


11 


001164 


0.12703 


000002 


12 


001170 


004737 


003626 ' 


13 


001174 






14 


001204 


010501 




15 


001206 


072127 


177767 


16 


001212 


042701 


177741 


17 


001216 


016101 


000306 ' 


18 


001222 


012703 


000004 


19 


001226 


004737 


004022 ' 


20 


001232 






21 


001242 


010501 




22 


001244 


042701 


177740 


23 


001250 


062701 


000110 


24 


001254 


012703 


000002 


25 


001260 


004737 


003626 ' 


26 


001264 






27 








28 








29 








30 


001274 


013700 


0000000 


31 


001300 


013701 


0000000 


32 


001304 


013703 


0000000 


33 


001310 


004737 


001424' 


34 


001314 


010246 




35 


001316 


012703 


000074 


36 


001322 


012705 


000002 


37 


001326 


004737 


001424' 


38 


001332 


010246 




39 


001334 


077504 




40 


001336 


010146 




41 


001340 


012705 


000004 


42 


001344 


000404 




43 


001346 






44 


001356 


012601 




45 


001360 


005000 




46 


001362 


07 1 027 


000012 


47 


001366 


062700 


000060 


48 


001372 






49 


001376 


062701 


000060 


50 


001402 






51 


001410 


077522 




52 


001412 






53 


001422 


000207 





SBTTL DATTIM 



Display date and time information 



DATTIM is called to display the current date and time information. 



DATTIM: PRINT #CRLF 

MOV/ SYSDAT.. R5 

BEG 10* 

MOV R5, Rl 

ASH #-5, Rl 

BIG #---C37, Rl 

MOV #*DEC, R3 

CALL OUTVAL 

TTYOUT #'- 

MOV R5,R1 

ASH #-9. , Rl 

BIG #--C36, Rl 

MOV MONTH-2 < R 1 ) , R 1 

MOV #*RAD50, R3 

CALL. OUTRAD 

TTYOUT #'- 

MOV R5, Rl 

B1C #"C37, Rl 

ADD #72. ,R1 

MOV #*DEC, R3 

CALL OUTVAL 

PRINT #SPSTR 



Output the current time. 



10*: 



11*: 



20*: 

21*: 



MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

CALL 

MOV 

SOB 

MOV 

MOV 

BR 

TTYOUT 

MOV 

CLR 

DIV 

ADD 

TTYOUT 

ADD 

TTYOUT 

SOB 

PRINT 

RETURN 



SYTIMH, RO 
SYTIML, Rl 
TK1SEC, R3 
DIV32 
R2, -<SP> 
#60. , R3 
#2, R5 
DIV32 
R2, -<SP> 
R5, 11* 
Rl, -(SP> 
#4, R5 
21* 
#': 

(SP)+, Rl 
RO 

#10. , RO 
#"0, RO 

#'0, Rl 

Rl 

R5, 20* 

#CRLF 



Display CR/LF 

Get current date 

No date set - skip date 

Copy to working register 

Find the day (bits 5-9) 

Mask unwanted bits 

Force decimal display 

Print the day 

Output "-" 

Copy date to working register 

Find the month (bits 10-13) 

Mask unwanted bits (word offset) 

Offset into month table 

Force radSO display 

Output three char month 

Output '■-" 

Copy date to working register 

Find the year (bits 0-4) 

Year is relative to 1972 

Force decimal display 

iPrint blank space 



Oet the current time (high) 

clock ticks past midnight (low) 
Get number of clock ticks per second 
Divide clock ticks per second 
Save ticks 
Get 60. per unit 

Process seconds, minutes, hours 
Divide by 60. per unit 
Save remainder 

Continue for seconds, minutes, hours 
Save final quotient 

Loop for minutes, seconds, and ticks 
Output the time past midnight 
Output ": " 
Get the next value 
Clear high order 
Divide by ten 
Convert to ascii number 
Display high digit (quotient) 
Convert to ascii number 
Display low digit (remainder 
Continue for hours, minutes, seconds, 
Display CR/LF 



tic ks 



< 

< 

I 1 

' < 

< 
< 
i 



TSDUMP - 
DIV32 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



- TSX-Plus crash dump MACRO 
D i v i de 1 6 - b i i i n t o 32- bit 
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001424 
001426 
001430 
001434 
001436 
001440 
001442 
001444 
001446 
001450 
001452 
001454 
001456 
001460 



010446 
005002 
012704 
006301 
006100 
006102 
020203 
103402 
160302 
005201 
005304 
100367 
012604 
000207 



SBTTL DIV32 



Divide 16-bit into 32-bit 



DIV32 divid 
in RO (high 
returned in 
All other r 



000037 



DIV3J 



1*: 



2$: 



es a 16-bit number in R3 into a 32-bit number 
order) and RJ. (low order). The quotient is 
R0> Rl and the remainder is returned in R2. 

egisters are preserved. 



Save registers 
Initialize remainder 
Initialize shift count 
Shift from low order 

through high order 

into remainder 
Check remainder for subtraction 
Br if unable to subtract 
Subtract divisor 
Increment quotient 
Check remaining bit shift count 
Continue if more to consider 
Restore registers 



MOV 


R4, -(SP) 


CLR 


R2 


MOV 


#31. , R4 


ASL 


Rl 


ROL 


RO 


ROL 


R2 


CMP 


R2, R3 


BL.0 


2* 


SUB 


R3, R2 


IMC 


Rl 


DEC 


R4 


BPL 


1* 


MOV 


(SP>+, R4 


RETURN 





i 
i 
i 
i 



i 
( 

t 
< 

< 
i 
< 

< 
< 

i 

< 

i 

I < 

'( 

i 
i 

i 



TSDUMP 

ERROR 



TSX-Plus 

Display 



crm:h dump 

• v r o r ■■ status 



MACRO V05. 04 
:in I'ovmetion 
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i 



3 
4 








5 


001462 






6 


001472 






7 


001502 






8 


001512 


013701 


0000000 


9 


001516 


005003 




10 


001520 


004737 


003626 ' 


11 


001524 






12 


001534 


013705 


OOOOOOG 


13 


001540 


001413 




14 


001542 






15 


001552 


010501 




16 


001554 


004737 


004022 ' 


17 


001560 






IS 


001570 


013705 


0000000 


19 


001574 


00 1 4 1 3 




20 


001576 






21 


001606 


010501 




22 


001610 


004737 


004022 ' 


23 


001614 






24 


001624 


000207 




25 









. SBTTL ERROR — Display error status information 
ERROR is called to display the error status information. 



ERROR : 



1$: 



2*: 



PRINT 


#CRLF 


PR I NT 


#DMPTXT 


PRINT 


#TXARG 


MOV 


DIEARG, R.< 


CLR 


R3 


CALL 


OUTVAL 


PRINT 


#CRLF 


MOV 


DMPOVL, R5 


BEQ 


1* 


PRINT 


#TXOID 


MOV 


R5, Rl 


CALL 


OUTRAD 


PRINT 


#CRLF 


MOV 


DMPHND, R5 


BEG 


2* 


PRINT 


#TXDEV 


MOV 


R5, Rl 


CALL 


OUTRAD 


PRINT 


#CRLF 


RETURN 





Display CR/LF 
Display fatal err 
Display "Arg. val 
Get the argument 
Set display chara 
Output argument v 
Display CR/LF 
Get the rad50 ove 
Br if zero > not i 
Display "Overlay: 
Copy overlay iden 
Output radSO over 
Display CR/LF 
Get the rad50 han 
Br is zero, not i 
Display "Device n 
Copy device handl 
Output rad50 hand 
Display CR/LF 
Finished 



or message 

ue" 

val ue 

cteristics 

alue 

rlay identifier 
n overlay 

t if ier 

lay identifier 

dler identifier 

n handler 

ame : " 

er identifier 

ler identifier 



t 

i 
i 
t 
i 

i 
t 
I 
I 

< 
€ 
C 
t 

< 

i 
i 

i 

< 
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REG --- Display contents of registers 

1 . SBTTL REG ■■— Display contents of registers 



o 



3 i REG is called to display the contents of the registers. 

4 > 

5 001626 REG: PRINT #CRLF > Display CR/LF 

6 001636 005002 CLR R2 ; Clear offset pointer 

7 001640 012700 000000' MOV #PRTREG* H5 * Point to register output table 



S 001644 004737 002504' CALL OLIST ; Output the list of values 

1 i 9 001650 000207 



PRINT 


#CRLF 


CLR 


R2 


MOV 


#PRTREG, R5 


CALL 


OLIST 


RETURN 





I 



TSDUMP — TSX-Plus crash 
MODADR — Display TSX. S< 



dump MACRO V05. 04 
V module addresses 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



SBTTL MODADR 



Display TSX. SAV module addresses 



MODADR is called to display the module address contained in TSX. SAV. 



001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 



652 
652 
662 
670 
676 
704 
712 
720 
724 
730 
734 
740 
744 
750 
754 
760 
764 
770 
774 



012737 
012737 
012737 
012737 
012737 
013705 
072527 
010537 
013705 
072527 
010537 
013705 
072527 
010537 
012705 
004737 
000207 



OOOOOOG 

0000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000006 

000034 ' 

OOOOOOG 

000006 

000036 ' 

OOOOOOG 

000006 

000040 ' 

000100' 

002504 ' 



MODADR : 



000022 ' 
000024 ' 
000026 ' 
000030 ' 
000032 ' 



PRINT 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ASH 

MOV 

MOV 

ASH 

MOV 

MOV 

ASH 

MOV 

MOV 

CALL 

RETURN 



#CRLF 

#TSGEN, ADGEN 

#TSTIO, ADTICI 

#TSEXEC.. ADEXEC 

#TSEMT, ADEMT 

#TSINIT, ADXNIT 

TIOBAS, R5 

#6, R5 

R5, ADTIOX 

LOKBAS, R5 

#6, R5 

R5, ADLOCK 

CSHBAS, R5 

#6, R5 

R5, ADCASH 

#ADDR, R5 

OLIST 



Di sp lay 

Save the 

Save 

Save 

Save 

Save 

Get 



the 
the 
the 
the 
PAR 



Convert 
Get the 
Save PAR 
Convert 
Save the 
Get PAR 
Convert 
Save the 
Point to 
Output a 



CR/LF 
TSGEN address 
TSTIO address 
TSEXEC address 
TSEMT address 
TSINIT address 

of TSTIOX 

to address 

TSTIOX address 
of TSLOCK 

to address 
TSLOCK address 

of TSCASH 

to address 
TSCASH address 
address output 

ddress contents 



list 



TSDUMP - 


— TSX-Plus crni 


• h dump 


DVRADR - 

i 
2 

3 


— TSX-Plur* ovi'i 


3 ay r e g i 








4 








5 








6 








7 








8 








9 








10 








11 


001776 






12 


001776 






13 


002006 






14 


002016 


013705 


0000000 


15 


002022 


012501 




16 


002024 


004737 


004022 ' 


17 


002030 






IS 


002040 


0.1.2501 




19 


002042 


005003 




20 


002044 


004737 


003626 ' 


21 


002050 


005725 




22 


002052 






23 


002062 


02 1 527 


004537 


24 


002066 


00135b 




25 


002070 


000207 
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. SBTTL DVRADR — 'lSX-Plus overlay region 

DVRADR is called to display the overlay region locations. 

Overlay table structure: 



OVRADR: 



10*: 



OVRADD — > *OV'l 



PRINT 

PR I NT 

MOV 

MOV 

CALL 

PRINT 

MOV 

CLR 

CALL 

TST 

PR I NT 

CMP 

BNE 

RETURN 



A.H : 
. WOKD 
DUMMY 



#CRLF 

#OVLREG 

OVRADD, R5 

CR5>+, Rl 

OUTRAD 

#EQSTR 

(R5)+, Rl 

R3 

OUTVAL 

<R5> + 

#CRLF 

<R5>,#4537 

10* 



< IDENTIFIERS <KPAR5>, <CWORD COUNTS- 
SUBROUTINES FOR ALL OVERLAY SEGMENTS 



Display CR/LF 

Display header 

Find the overlay table address 

Get the overlay identifier 

Display radSO id 

Display " « " 

Get the KPAR5 value 

Default octal display value 

Display KPAR5 value 



Display CR/LF 

Compare with a <JSR R5> *OVRH> 

Br if not end of the table 



instruction 
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BBTTL STACK 



Display contents of stack 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


002072 






15 


002102 


013705 


OOOOOOQ 


16 


002106 


010504 




17 


002110 


020527 


OOOOOOG 


18 


002114 


101013 




19 








20 








21 








22 


002116 


162704 


OOOOOOG 


23 


002122 


001465 




24 


002124 


00 5404 




25 


002126 






26 


002136 


004737 


002640 ' 


27 


002142 


000207 




28 


002144 


020537 


OOOOOOG 


29 


002150 


101013 




30 








31 








32 








33 


002152 


163704 


OOOOOOG 


34 


002156 


00 1 447 




35 


002160 


005404 




36 


002162 






37 


002 1 72 


004737 


002640 ' 


38 


002176 


000207 




39 


002200 


020527 


OOOOOOG 


40 


002204 


.103416 




41 


002206 


020527 


OOOOOOG 


42 


002212 


101013 




43 








44 








45 








46 


002214 


162704 


OOOOOOG 


47 


002220 


001426 




48 


002222 


005404 




49 


002224 






50 


002234 


004737 


002640 ' 


51 


002240 


000207 




52 








53 








54 








55 


002242 






56 


002252 


020527 


OOOOOOG 


57 


002256 


103403 





STACK is called to display the contents of the stack. 

There are three possible stack configurations. The users system 

stack is stored in the each job's context region. This stack 

is bounded by JSTK <top of stack) and JSTKND (bottom of stack). 

The interrupt stack is used during interrupt processing and is 

allocated over TSINIT code. The address boundary of this stack 

is stored in INTSTK <top of stack) and INTSND (bottom of stack) 

located in TSEXEC. The system stack is used during scheduling 

and is located between GS <top of stack) and SSEND (bottom of stack). 

Display CR/LF 

Get the stack pointer 

Copy the base of the stack 

Below the top of the system stack? 

No* SP not in system stack 



STACK: 


PRINT 


#CRLF 




MOV 


DIESP, R5 




MOV 


R5, R4 


5*: 


CMP 


R5, #SS 




BHI 


10$ 



Stack pointer is in the system stack area. 



10$: 



SUB 


#SS, R4 


BEG 


50* 


MEG 


R4 


PRINT 


#STKSS 


CALL 


OSTACK 


RETURN 




CMP 


R5, INTSTK 


BHI 


20* 



> Calculate number of bytes to dump 
; No stack space used 
; Convert to positive byte count 
(Display "System Stack Contents" 
■> Output the stack contents 

; Below the top of the interupt stack? 
; No, SP not in interrupt- stack 



Stack pointer is in the interrupt stack area. 



?0*: 



SUB 


INTSTK, R4 


BEQ 


50* 


NEG 


R4 


PRINT 


ttSTKINT 


CALL 


OSTACK 


RETURN 




CMP 


R5, # JSTKND 


BLO 


30* 


CMP 


R5, #JSTK 


BHI 


30* 


pointer is in the 


SUB 


#JSTK, R4 


BEQ 


50* 


NEG 


R4 


PRINT 


#STKEMT 


CALL 


OSTACK 


RETURN 





i Calculate number of bytes to dump 

; No stack space used 

> Convert to positive byte count 

.; Display "Interrupt Stack Contents" 

; Output the stack contents 



Above the end 
Invalid stack 
Below the top 
No » SP not in 



job's context stack. 



of the context stack? 

pointer 

of the context stack? 

job context stack 



21*: SUB #JSTK, R4 ; Calculate number of bytes to dump 

; No stack space used 
; Convert to positive byte count 
.; Display "EMT Stack Contents" 
; Output the stack contents 

Stack pointer is invalid. Output 40 words where SP is pointing. 



30* : 



PRINT 

CMP 

BLO 



#INVSTK 
R5, #VPAR5 
40* 



Display "Invalid stack" 

Check for EMT stack overflow 

Br if below 120000, unknown stack 



TSDUMP - 


- - T 8 X - P 1 u s c v a s 


h clump MACRO V05. 04 


Monday 


21 


-Dec -87 08: 


STACK - 


— Disp. 


[ay contents of stack 








58 


002260 


0127013 


0000000 


MOV 




#VPAR6, R5 


59 


002264 


000753 




BR 




21$ 


60 


002266 


012704 


000310 40*: 


MOV 




#100 #2, R4 


61 


002272 


00473/ 


002640 ' 


CALL 




QSTACK 


62 


002276 


000207 


50*: 


RETURN 
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> Adjust stack pointer to EMT stack 
■> Dump job context stack 
; Dump 100. words from stack pointer 
■> Output the stack contents 
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1 



4 

5 002300 

6 002300 

7 002310 

8 002314 

9 002316 

10 002326 

11 002332 

12 002334 

13 002344 

14 002352 

15 002354 

16 002364 

17 002366 

18 002372 

19 002376 



105737 

00240''! 

105737 
00 1 404 

023727 
001404 

005002 
012705 
004737 
000207 



. SBT'TL MISC • — Display wise system values 
MISC is called to display the miscellaneous system values. 



MISC: 



0000000 



0000000 



10*: 



OOOOOOC 1234 56 20*: 



30*: 



000164' 
002504 ' 



PRINT 


#CRLF ; 


TSTB 


INTL. VI. i 


BI..T 


10* i 


PRINT 


#INTLEV ■> 


TSTB 


FRKPRI ; 


BEO 


20* ; 


PRINT 


#FRKLEV ■> 


CMP 


SSEND, #123456 ; 


BEO 


30* • 


PRINT 


#STKOVR ; 


CLR 


R2 i 


MOV 


#VMISC* R5 ; 


CALL. 


OLIST ; 


RETURN 





Display CR/LF 

Check interrupt level 

Br if not executing interrupt 

Display "Interrupt level" 

Check fork priority 

Br if not executing fork 

Display "Fork level" 

Check end of system stack 

Br if stack end is valid 

Display "System stack overflow" 

Clear offset pointer 

Point to miscellaneous output list 

Output the list of values 
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1 



SBTTL 



JOB 



Display info about current job 



3 








4 








5 


002400 






6 


002410 






7 


002420 






8 


002430 


113701 


000000G 


9 


002434 


Y/O' UCiU X 




10 


002436 


03.2703 


000002 


11 


002442 


004737 


003626 ' 


12 


002446 






13 


002456 


000207 





JOB 



JOB : 



is railed to display information concerning the executing job. 



PRINT 


#CRLF 


PRINT 


#CURJOB 


PRINT 


#EQSTR 


MOVB 


CORUSR, R 


ASR 


Rl 


MOV 


#*DEC, R3 


CALL 


OUTVAL 


PRINT 


#CRLF 


RETURN 





Display CR/LF 

Disp "Job executing at time of dump" 

Display " ~ " 

Get the current operating job index 

Divide by two for the job number 

Force decimal display 

Output the job number 

Display CR/LF 
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LINE • — Display line definition tables 

1 . SBTTL LINE — Display line definition tables 

; LINE is called to display the generated line definition tables. 



2 i 

3 ; 

4 j 

5 002460 012705 000622' LINE: MOV #JlIN, R5 ; Point to job line table 

6 002464 004737 002714' CALL OTABLE ; Output line definition values 

7 002470 000207 RETURN 



< 

4 



I 
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. SBTTL DEVICE — Display device definition tables 



3 ; DEVICE is called to display the generated device definition tables. 

4 ; 

5 002472 012705 001410' DEVICE: MOV #DHAN, R5 ; Point to device table 

6 002476 004737 002714' CALL OTABLE ; Output device table values 
I 7 002502 000207 RETURN 



i 

f 



OLIST 



T3X--P I us 
Output a 



crash dump MACRO V05. 04 Monday 21 -Bee --87 03: 42 Page 



i :; t of i n forma t i on 



3 








4 








5 


002504 


010546 




6 


002506 


010446 




7 


002510 


010346 




8 


002512 


010246 




9 


002514 


010146 




1 








11 








12 








13 


002516 


012501 




14 


002520 


001437 




15 


002522 






16 


002526 


000434 




17 








18 








19 








20 


002530 






21 


002536 






22 


002546 


016503 


000002 


23 


002552 


016504 


000004 


24 


002556 


060204 




25 


002560 


032703 


000001 


26 


002564 


001404 




27 


002566 


111401 




CO 


002570 


042701 


177400 


29 


002574 


000401 




30 


002576 


011401 




31 


002600 


004737 


003626 ' 


32 


002604 






33 


002614 


062705 


000006 


34 








35 








36 








37 


002620 


005715 




38 


002622 


00 1 342 




39 








40 








41 








42 


002624 


01260J. 




43 


002626 


012602 




44 


002630 


012603 




45 


002632 


012604 




46 


002634 


012605 




47 


002636 


000207 





. SBTTL OLIST •■— Output a list of information 
Output a list of information. 



OLIST: 



MOV 


R5, 


- ( SP ) 


MOV 


R4, 


~ ( SP ) 


MOV 


R3, 


- ( SP ) 


MOV 


R2# 


- < SP ) 


MOV 


Rl, 


-<SP> 



; Save reg i steps 



Display the list header 



MOV 
BEQ 

PRINT 
BR 



<R5>+, Rl 
100* 

100* 



Display identifier 



10* 
30* 



31* 
32* 

50* 



100*: 



PRINT 


(R5) 


: PRINT 


#EQSTR 


MOV 


2(R5), R3 


MOV 


4(R5), R4 


ADD 


R2, R4 


BIT 


#*BYTE» R3 


BEQ 


31* 


MOVB 


@R4, Rl 


BIG 


#"C377, Rl 


BR 


32* 


: MOV 


©R4, Rl 


: CALL 


OUTVAL 


PRINT 


#CRLF 


ADD 


#6, R5 


Continue out 


put of lis 



TST 

BNE 



<R5> 
10* 



/Point to list header 

; Br if not header 

> Display the list header 

jOutput entire display list 



Print identifier 

Point to string " = " 

Get field attributes 

Get the field address 

Add field bias 

Word or byte storage element? 

Br if word element 

Oet numeric value 

Clear sign extend 

Continue 

Get the numeric value 

Output the numeric value 

Point to carriage return / line 

Increment to next list entry 



/Point to the next list entry 
; Br if list continues 



feed 



Finished 

MOV 
MOV 
MOV 
MOV 
MOV 



RETURN 



(SP)+, Rl 
(SP>+, R2 
( SP ) +, R3 
(SP)+, HA 
(SP>+, R5 



^Restore registers 



> Finished 



TSDUMP — 
OSTACK — 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 



TSX-Plus crash dump MACRO V05. 04 
Display stack contents. 
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SBTTL OSTACK -- Display stack contents 



00= 

00= 
00= 
00= 
002 
002 
002 
002 
00= 
002 
002 
00= 



640 
640 
642 
652 
654 
6 
662 
672 
674 
700 
710 
712 



006204 

005003 
01050.1. 
004737 

01250.1 
004737 

077417 
000207 



003626 ' 



003626 ' 



i Ol)tp 


u t the s 


tack cont 


i 

OSTACK: 








ASR 


R4 




PRINT 


#STKCNT 




CL..R 


R3 


10*: 


MOV 


R5, Rl 




CALL 


OUTVAL 




PRINT 


#STKDLM 




MOV 


<R5)+,R1 




CALL 


OUTVAL 




PRINT 


#CRLF 




SOB 


R4, 10$ 




RETURN 





Convert byte count to word count 

Display header 

Set for octal display 

Copy the stack address 

Display stack address 

Display delimiter 

Get the stack contents 

Display stack contents 

Display CR/LF 

Continue until done 



TSDUMP 
OTABLE 



TSX-PluG cr,if.li dump MACRO V05. 04 
Output tables:- of information 



i 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 
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SBTTL OTABLE ■— Output tables of information 



inf ormati on. 



i 
f 



0027.14 
002714 
002720 
002724 
002730 
002734 
002736 
002740 
002750 



004737 
004737 
004737 
004737 
005711? 
00 1 370 

000207 



002752 ' 
003006 ' 
003156' 
003432 ' 



f 


Out 


put t a b 1 


35 Of 1 


OTABLF 










CALL 


TINIT 


1$: 




CALL 


TCLR 






CALL 


TACCR 






CALL 


TOUT 






TST 


<R5) 






BNE 


1* 






PRINT 


#CRLF 






RETURN 





Initialize for table output 

Clear output tables 

Accrue table information 

Display table values 

Check for more table information 

Br if more to display 

Display CR/LF 



TSDUMP 
OTABLE - 

I 



- TSX-Plus era: 
~ Output tabic-; 



h dump MACRO V05. 04 
of information 
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4 


002752 






5 


002762 






6 


002770 


005037 


000052 ' 


7 


002774 






8 

9 

10 


003004 


000207 










11 








12 


003006 


012702 


000014 


13 


003012 


006302 




14 


003014 


00 5062 


000054 ' 


15 


003020 


005062 


000 1 06 ' 


16 


003024 


005062 


000140' 


17 


003030 


00 5062 


000172' 


IS 


003034 


005062 


000224 ' 


19 


003040 


005062 


000256 ' 


20 


003044 


162702 


000002 


21 


003050 


00336.1. 






003052 


002427 




23 


003054 


005737 


000052 ' 


24 


003060 


001755 




26 








27 








28 


003062 






29 


003072 






30 


003102 






31 


003112 


016201 


000106' 


32 


003116 


004737 


004144' 


33 


003122 






34 


003132 


000207 





; I n i t 


ialize for di splat. 


TINIT: 


PRINT 


#CRLF 




PRINT 


(R5) + 




CLR 


COL 




PRINT 


#CRLF 




RETURN 





start or continuation of table format. 

; Display CR/LF 
; Display the table title 
i Clear column counter 
; Di sp lay CR/LF 



Clear table entries for continuation of table format. 



Initilize table storage information 

Convert to word index 

Clear starting column number 

Clear ending column number 

Clear starting index number 

Clear ending index number 

Clear attribute flags 

Clear address location 

Subtract from table index 

Continue for all entries 

All entries are clear 

Check column counter 

Br if first table initialization call 



; Print CR/LF 

; Print CR/LF 

j Print columnar heading 

;Find ending column information 

; Blank fill 

; Print blanks for spacing 



TCLR: 


MOV 


#NCOL, R2 




ASL 


R2 


10*: 


CLR 


TSC0L(R2> 




CLR 


TEC0L<R2> 




CLR 


TSINXCR2) 




CLR 


TEINX<R2) 




CLR 


TATT<R2) 




CLR 


TADR<R2) 




SUB 


#2, R2 




BGT 


10* 




BLT 


20* 




TST 


COL 




BEQ 


10* 


; Tab! 


e continuation display 




PRINT 


#CRLF 




PRINT 


#CRLF 




PRINT 


TADR<R2) 




MOV 


TEC0L<R2>, RJ 




CALL 


BLKPAD 




PRINT 


#SPSTR 


20*: 


RETURN 





c 

c 

< 
t 

( 
( 
t 

< 
i 
< 
< 
i 
i 
i 
i 

< 
« 
i 
i 

i 



TSDUMP - 
OTABLE ~ 

i 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



.... TSX-Plus cratch clump MACRO V05. 
— Output tabic*!; of information 
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29 



003134 
003134 
003142 
003146 
003156 
003162 
003166 
003170 
003172 
003174 
003202 
003210 
003216 
003224 
003230 
003232 
003236 
003242 
003246 
003250 
003254 
003260 
003264 
003272 
003274 
003300 
003304 
003310 
003312 
003314 
003316 
003322 
003326 
003332 
003336 
003340 
003342 
003346 
003354 
003356 
003362 
003364 
003370 
003376 
003400 
003404 
003410 
003414 
003420 
003424 
003430 



016562 

062705 

062702 
020227 
002120 
005715 
001516 
013762 

013762 
016562 
016500 
00 1 002 
013700 
010062 
016500 
00 1 002 
013700 
010062 
012700 
032762 
001402 
012700 
066200 
026200 
001427 
101013 
010001 
166201 
010062 
1 1 2700 

077103 
000413 
166200 
032762 
00 1 403 
160062 
000402 
060062 
026227 
103656 
00 5062 
005062 
005062 
005062 
005062 
005062 
000207 



Accrue information concerning table display while printing column headings. 



000256 



000004 
000012 

000002 
000014 



000052' 000054 



MX TOOL 



TACCR: 



000052 ■' 

000002 

000006 

000140' 
000140' 
000010 

000172' 
000172' 
000006 
000001 

000003 
000054 ' 
000106' 



000106 
000106 
000040 



000106' 
040000 

000054' 

000106' 
000106' 

000054 ' 
000106' 
000140' 
000172' 
000224 ' 
000256 ' 



000106 
000224 



1*: 



000224 



10$: 



11*: 



■K>*: 



000224 



000120 



21*: 
30*: 



50*: 



MOV 


4<R5), TADR<R2> 


ADD 


#10. , R5 


PRINT 


#SPSTR 


ADD 


#2, R2 


CMP 


R2, #NCOL 


BGE 


50* 


TST 


(R5) 


BEG 


50* 


MOV 


COL, TSC0L(R2) 


PRINT 


<R5> 


MOV 


COL, TEC0L(R2> 


MOV 


2<R5>, TATT<R2) 


MOV 


6(R5>, RO 


BNE 


1* 


MOV 


TSINX, RO 


MOV 


RO, TSINX <R2> 


MOV 


10<R5>, RO 


BNE 


2* 


MOV 


TEINX, RO 


MOV 


RO, TEINX<R2) 


MOV 


#6, RO 


BIT 


#*BYTE, TATT<R2> 


BEG 


10* 


MOV 


#3, RO 


ADD 


TSC0L<R2), RO 


CMP 


TEC0L<R2>, RO 


BEQ 


30* 


BHI 


20* 


MOV 


RO, Rl 


SUB 


TEC0L(R2>, RJ 


MOV 


RO, TEC0L<R2> 


MOVB 


#' , RO 


TTYOUT 




SOB 


Rl, 11* 


BR 


30* 


SUB 


TEC0L<R2), RO 


B I T 


#*RJUST, TATKR2) 


BEQ 


21* 


SUB 


RO, TSC0L<R2) 


BR 


30* 


ADD 


RO, TEC0L<R2) 


CMP 


TEC0L<R2), #00. 


BLO 


NXTCOL 


CLR 


TSC0L<R2) 


CLR 


TECQLCR2) 


CLR 


TSINX <R2) 


CLR 


TEINX(R2> 


CLR 


TATT < R2 ) 


CLR 


TADR<R2> 


RETURN 





Store print string address 

Offset to the next column entry 

Print blanks for spacing 

Increment the field index 

End of columns allowed? 

Br is no more column storage 

See if a column entry exists 

End of table found 

Point to starting field position 

Display the column heading 

Set ending column position 

Store field attributes 

Get the starting index number 

Br if start is specified 

Set as starting table number 

Store starting index number 

Get the ending index number 

Br is end is specified 

Set as ending table number 

Store ending index number 

Assume 6 digit <word element) 

Check field attributes 

Br if word element 

Assume 3 digit (byte element) 

Add starting position 

Determine if ending position 

Pield is exactly enough 

Br if field too long 

Copy ending column address 

Find difference 

Force ending column longer 

Store blank 

Pad output with blanks 

Continue until padded 

Go on to the next entry 

Subtract the ending column 

Check for right justify 

Br if left justify 

Adjust starting column position 

Adjust ending column position 
Check for line overflow 
Continue collecting columns 
Clear partial entry 



TSDUMP — TSX-PIue crash dump MACRO V05. 
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1 



Display index value and data. 



3 
4 








5 


003432 


010446 




6 
7 
8 


003434 


010546 










9 








10 


003436 


013705 


000140' 


11 


003442 






12 


003452 


010501 




13 


003454 


005002 




14 


003456 


016203 


000224 ' 


15 


003462 


004737 


003626 ' 


16 


003466 


000430 




17 








18 








19 








20 


003470 


020562 


000140' 


21 


003474 


002420 




22 


003476 


020562 


000172' 


23 
24 

IK 


003502 


003022 




26 
27 


003504 


004737 


004144' 


28 


003510 


016203 


000224 ' 


29 


003514 


016201 


000256 ' 


30 


003520 


06050.1 




31 


003522 


032703 


000001 


32 


003526 


00 1 404 




33 


003530 


111101 




34 


003532 


042701 


177400 


35 


003536 


000402 




36 


003540 


060501 




37 


003542 


01110.1 




38 


003544 


004737 


003626 ' 


39 


003550 


062702 


000002 


40 


003554 


016201 


000054 ' 


41 


003560 


001343 




42 


003562 


005205 




43 


003564 


020537 


000172' 


44 


003570 


101724 




45 


003572 


012605 




46 


003574 


012604 




47 


003576 


000207 





TOUT: 



MOV 
MOV 



R4j -<qp) 
R5, -<SP> 



Save some registers 



Display index offset into table. 



1*: 



MOV 


TSINX, R5 


PRINT 


#CRLF 


MOV 


R5* Rl 


CLR 


R2 


MOV 


TATT<R2>, R3 


CALL 


OUTVAL 


BR 


40* 



Find the starting index 

Display CR/LF 

Copy index number 

Clear column index 

Numeric attribute 

Display index value 

Enter column output stream 



Determine if the value should be displayed. 



10$: 



Output 



20*: 

30*: 
40*: 



CMP 


R5> TSINX <R2) 


BLT 


40* 


CMP 


R5, TEINX<R2) 


BGT 


40* 


t rows 


of informatio 


CALL 


BLKPAD 


MOV 


TATT<R2)» R3 


MOV 


TADR < R2 ) > R 1 


ADD 


R5, Rl 


BIT 


#*BYTE, R3 


BE'Q 


20* 


MOVB 


<R1>, Rl 


BI'C 


#•••0377, Rl 


BR 


30* 


ADD 


R5, Rl 


MOV 


C R 1 ) > R 1 


CALL 


OUTVAL 


ADD 


#2, R2 


MOV 


TSC0L<R2)» Rl 


BNE 


10* 


INC 


R5 


CMP 


R5, TEINX 


BLOS 


1* 


MOV 


(SP>+, R5 


MOV 


(SP)+, R4 


RETURN 





;Is the current index < starting 
; Yes, skip entry 
; Is the current index > ending 
; Yes, skip entry 



Pad with spaces 

Get the attribute 

Check for existing entry 

Add the index offset (byte) 

Check for byte storage 

Br if word storage 

Get the stored byte value 

Kill sign extend bits 

Continue 

Add the index offset (word) 

Get the stored word value 

Output the value 

Increment the index 

Get the starting column 

End of table entries 

Increment the index offset 

Check for ending index 

Br if more tables to output 

Restore registers 



TSDUMP — 
OUTSTR • 

1 



Out?: 



Plus 



C T" i'i !"■ !! 



dump MACRO V05. 04 
string 



Monday 2i-Dec-S7 OB: 42 Page 31 



3 

4 






6 






7 






B 






9 


003600 




10 


003600 


112100 


11 


003602 


001404 


12 


003604 


100407 


13 


003606 




14 


003612 


000772 


15 


003614 




16 


003624 


000207 



. SBTTL OUTSTR — - Output an asciz string 
OU'ii-OR - Output an astiz ttri ng. 

String address 



> Ar q i 


merits - 




■ ; 


Rl 


— 


OUTSTR : 






If: 


I10VB 


<R1)+, RO 




BEQ 


10$ 




BMI 


20* 




TTYQUT 






BR 


1* 


10*: 


PRINT 


#CRLF 


20*: 


RETURN 





; G e t next output byte 

> Z&ro, output CR / LF 

j Exit on end o-P output string 

•> Output the character 

iContine until end of string 

; Display carriage return / line 



feed 



TSDUMP ~ TS X -P 1 u s c r a i, h d u m p MAC R VO 5 . 04 

OUTVAL -■■- Convert and print a value 



Monday 21 -Dec -87 08: 42 Page 32 



SBTTL OUTVAL 



Convert and print a value 



3 
4 








5 








6 
7 








S 








9 


003626 


010546 




10 


003630 


010446 




11 


003632 


010346 




12 


003634 


010246 




13 


GQ3g%3& 


032703 


000004 


14 


003642 


001403 




15 


003644 


004737 


004022 ' 


16 


003650 


000420 




17 


003652 


012704 


000010 


18 


003656 


032703 


000002 


19 


003662 


00 1 402 




20 


003664 


012704 


000012 


21 


003670 


012702 


000006 


22 


003674 


032703 


000001 


23 


003700 


00 1 402 




24 


003702 


012702 


000003 


25 


003706 


004737 


003724 ' 


26 


003712 


012602 




27 


003714 


012603 




28 


003716 


0.1.2604 




29 


003720 


012605 




30 


003722 


W \_' W CU \J / 




31 








32 


003724 






33 


003724 


005302 




34 


003726 


002411 




35 


003730 


005000 




36 


003732 


07 i 004 




37 


003734 


062701 


000060 


38 


003740 


010146 




39 


003742 


010001 




40 


003744 


00 1 406 




41 


003746 


00473/ 


003724 ' 


42 


003752 


1 1 2600 




43 


003754 






44 


003760 


000207 




45 


003762 


005702 




46 


003764 


00 1 772 




47 


003766 


032703 


040000 


48 


003772 


00 1 767 




49 


003774 


1 1 2700 


000040 


50 


004000 


032703 


020000 


51 


004004 


001402 




52 


004006 


1 1 P7Q0 


000060 


£?w» 


004012 






54 


004016 


0772.03 




55 


004020 


000754 





OUTVAL 

Argument 5 

Ri 
R3 



OUTVAL: 



1*: 



10*: 



20*: 
30*: 



CONVAl. 



2*: 



3*: 



Convert and output a value. 



- Numeric vbIub 

= Display string attributes 



4*: 



MOV 

MOV 

MOV 

MOV 

B I T 

BEG 

CALL 

BR 

MOV 

BIT 

BEG 

MOV 

MOV 

BIT 

BEG 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

RETURN 



DEC 

BLT 

CLR 

DIV 

ADD 

MOV 

MOV 

BEG 

CALL 

MOVE 

TTYOUT 

RETURN 

TST 

BEG 

BIT 

BEG 

MOVE 

BIT 

BEG 

MOVB 

TTYOUT 



R5, -<SP) 
R4, -<fr»P> 
R3, -<SP> 
R2, -<SP) 
#*RAD50, R3 
1* 

OUTRAD 
30* 

#10, R4 
#*DEC, R3 
10* 

#10. , R4 
#6, R2 
#*BYTE, R3 
20* 
#3, R2 
CONVAL 
<SP)+, R2 
(SP)+, R3 
(SP)+, R4 
(SP)+. R5 



R2 

2* 

RO 

R4, RO 

#60, Rl 

R 1 , - < SP ) 

RO, Rl 

3* 

CONVAL 

(SP)+, RO 



R2 

2* 

#*RJUST, R3 

2* 

# ' , RO 

#*ZRPAD, R3 

4* 

#'0, RO 



> Save registers 



Check for RAD50 value 

Br if not RAD50 

Output RAD50 

Continue 

Assume octal base 

Check for decimal base 

Br if numeric display in octal 

Set for decimal base 

Assume word value 

Check for byte storage 

Br if storage is word value 

Otherwise byte value 

Convert numeric value 

Restore registers 



SOB 



BR 



R2, 4* 
2* 



Say one more digit converted 

Br if all display digits converted 

Clear high order result 

Divide number by numeric base 

Convert remainder to ascii digit 

Save ascii digit on stack 

Set result register 

Br if no more digits to convert 

Call conversion for next digit 

Get the next digit to display 

Output the ascii character 

Check field output size 

No pad necessary 

Check for right justify 

Br if not right justify 

Default pad to blank 

Check for zero pad 

Br if blank pad chosen 

Change to zero pad 

Output the char at er 

Continue until all ouput 

Display remaining characters 



( 

i 
i 
< 
< 

i 
< 

< 
i 
t 

€ 

< 

< 

i 
i 

t 
i 
< 



TSDUHP - 

OUTRAB -■ 

1 



TSX~PIU: 



C T - i.i t 



dump 



MACRO V05. 04 Monday 21-Dec-87 08:42 Page 33 



C o n v e r t a n d p r i n t a R AD 50 va 1 u e 



4 










5 










6 


004022 


010146 






7 


004024 


00 5000 






8 


004026 


07 1 027 


003100 




9 


004032 








10 


004042 


00 5000 






11 


004044 


07 1 027 


000050 




12 


004050 








13 


004060 








14 


004070 


01260.1. 






15 


004072 


000207 






16 










17 


004074 


040 


101 


102 




004077 


103 


1 04 


105 




004 1 02 


106 


.107 


110 




004105 


11 J 


112 


113 




004 1 1 


114 


115 


i J 6 




0041:13 


11V 
X X / 


120 


i.2i. 




004116 


1 22 


1 23 


1 24 




004121 


125 


126 


127 




004124 


1 30 


131 


1 32 




004127 


044 


056 


040 




004132 


060 


061 


062 




004135 


063 


064 


065 




004140 


066 


067 


070 




004143 


071 






IS 










19 










20 










21 










22 










23 










24 










25 


004144 


112700 


000040 




26 


004150 


163701 


000052' 




27 


004154 


003403 






28 


004156 








29 


004162 


077103 






30 


004164 


00020/ 







. SBTTL DUTRAD — Convert and print a RAD50 value 

QUI RAD - Convert and output rad 50 data. 
Rl = Numeric red 50 value 



OUTRAD: 



MOV 

CLR 

DIV 

TTYOUT 

CLR 

DIV 

TTYOUT 

TTYOUT 

MOV 

RETURN 



R 1 , ~ ( SP ) 

RO 

#50*50, RO 

R50CHR(RO) 

RO 

#50, RO 

R50CHR<R0) 

R50CHR(R1) 

< SP ) +, R .1 



Clear high order 
Divide for 1st byte 
Display radSO character 
Clear high order 
Divide for 2nd byte 
Display rad50 character 
Display radSO character 



R50CHR: .ASCII / ABCDEFOHIv'KLMNOPQRSTUVWXYZ*. 0123456789/ 



EVEN 



SBTTL BLKPAD 



Blank pad output stream 



BLKPAD - Blank pad ouput stream. 

Ri ~ endinq column number 



BLKPAD: 



10$: 



20*: 



MOVB 
SUB 
BLE 
IT YOUT 
SOB 
RETURN 



# ' , RO 
COL, R.1 
20* 

Rl> 10$ 



j Initialize ouput to space 
; Figure number of blanks 
i Br if already past column 
^Display space 
; Continue 



TSDUMP - 


— TSX-P 


1 u a c r a f.: 


h dump 


MACRO V05. 04 i* 


Ion day 21 


-Dec --87 08: 42 


OUTCHR • 


— Outpu 


tana ;:• t 


i i c: harac tor 








1 
P 












. SBTTL 


OUTCHR •— Out 


3 


; OUTC 


;hr - Out 


put an ast 1 i c 


4 










.» 


RO 


= character t 


6 


004166 


005737 


000050 ' 




OUTCHR: 


TST 


RCSR 


7 


004172 


001415 








BEG 


OP R INT 


8 


004174 








OTERM: 






9 


00417-1 


105777 


173650 




10*: 


TSTB 


©RCSR 


10 


004200 


.1.00006 








BPL 


20$ 


11 


004202 


117737 


1 73640 


000340 ' 




MOVB 


©RBUF, XFLG 


12 


004210 


14 2737 


177600 


000340 ' 




BICB 


#"-C177, XPLO 


13 


004216 


123727 


000340 ' 


00002.1 


20$: 


CMPB 


XFLG, #CTRLO 


14 


004224 


001363 








BNE 


10$ 


15 


004226 








OP R INT: 






16 


004226 


105777 


173612 




30$: 


TSTB 


©TCSR 


17 


004232 


100375 








BPL 


30$ 


18 


004234 


1 1 0077 


173602 






MOVB 


RO, STBUF 


19 


004240 


120027 


000015 






CMPB 


RO, #CR 


20 


004244 


001003 








BNE 


40$ 




004246 


005037 


000052 •' 






CLR 


COL 


22 


004232 


000405 








BR 


50$ 


23 


004254 


120027 


000040 




40$: 


CMPB 


RO, #40 


24 


004260 


103402 








BLO 


50$ 


25 


004262 


005237 


000052' 






IMC 


COL 


26 

27 
no 


004266 


000207 






50$: 


RETURN 






000001 








. END 




Errors c 


etec ted 
















>aae 34 



put an ascii character 



haracter to a serial or parallel port. 
o outpu t 

; Check for receiver buffers 

> No receiver CSR, transmit character 



Check input port 

Br if no input pending 

Input the character 

Strip eighth bit 

Check for XON 

Br if not XON state active 

Check transmit done flag 

Wait for transmit done 

Output to transmitter 

Is character a carriage return? 

Br if not carriage return 

Clear column counter 

Finished 

Is character printable? 

Br if not printable 

Increment column position 

Finished 



*■*•# Assembler statistics 



Work file reads 
Work file writes 
Si te of work file 
Size of core pool 
Operating system 













9623 Words 


< 38 Paries) 


17920 Words 


< 70 Pages) 


RT-.I .1 





Elapsed time: 00:00:50.48 

DK: TSDUMP, LP: TSDUMP=DK: TSDUMP. MAC/C/N: SYM 



TSDUMP 


~- TSX-P 


t u s c v a r> h dump MAC R 


V05. 04 


Monday 21- 


-Dec -87 08: 


4P Page B~ 


i. 










Cross r 


eferenc e 


table <CREF 


V05. 04 ) 




















$BYTE 


5-2244 


9-10 


9-11 


9-12 


9-13 


9-17 


9-18 


9-19 


9-24 


9-25 


9-27 


9-30 




9-31 


9 -OP 


9-38 


9-34 


9-35 


9-87 


9-38 


9-42 


9-43 


9-50 


9-52 


10-5 




3.1-5 


25— p\;j 


29-26 


30-31 


3P--22 
















*Dfc"C 


5-23* 


10-5 


11-5 


14-11 


14-24 


22-10 


82-18 












* RAD 50 


5-24* 


10-25 


10-26 


1 1 -6 


14-18 


32-13 


• 












♦RJUST 


5-1944 


1 0-6 


10-7 


10-8 


10-9 


10-10 


10-11 


10-12 


10-13 


10-14 


10-15 


10-16 




10-17 


10-10 


10-19 


10-20 


10-21 


10-22 


1 -23 


10-24 


10-27 


10-28 


10-29 


10-30 




10-31 


10-32 


10-33 


10-34 


10-35 


10-36 


1 0-37 


10-38 


10-39 


10-40 


10-41 


11-7 




11-8 


1 1 -9 


11-10 


11-11 


1 1 - 1 2 


11-13 


29-41 


32-47 










SZRPAD 


5-20# 


10-6 


10-7 


10-8 


10-9 


10-10 


10-11 


10-12 


10-13 


10-14 


10-15 


10-16 




10-17 


10-10 


10-19 


10-20 


10-21 


10-22 


10-23 


10-24 


10-27 


10-28 


10-29 


10-30 




10-31 


10-32 


10-33 


10-34 


10-35 


10-36 


10-37 


10-38 


10-39 


10-40 


10-41 


11-11 




11-12 


11-1 


32-50 




















ADCASH 


8-13 


8- J 3 


1 2—36* 


18-20* 


















ADDR 


8-5* 


18-21 






















ADEMT 


8-9 


8-9 


12-3241 


18-10* 


















ADEXEC 


s-s 


8-8 


12-3144 


18-9* 


















ADOEN 


8-6 


8-6 


1 2-2941 


1 8-7* 


















ADINIT 


8-10 


8-10 


1 2-3341 


18-11* 


















ADLOCK 


8-12 


8-12 


12-354? 


18-17* 


















ADTIO 


8-7 


8-7 


12-304? 


18-8* 


















ADTIOX 


8-11 


8- J .1 


12-34* 


18-14* 


















ARC 


1 3—6 1 


13-61 4* 


14-5 


14-54* 


14-13 


14-1344 


14-20 


14-20* 


14-26 


14-26* 


14-43 


14-43* 




14-48 


14-4S# 


14-50 


14-5044 


14-52 


14-52* 


16-5 


16-5* 


16-6 


16-6* 


16-7 


16-7* 




16-11 


16-1 141 


16-14 


16-1444 


16-17 


16-1744 


16-20 


16-20* 


16-23 


16-23* 


17-5 


17-5* 




18-6 


18-644 


19-12 


19~12# 


19-13 


19-13# 


19-17 


19-1744 


19-22 


1 9-22# 


20-14 


20-14* 




20-25 


20-2544 


20-36 


20-3644 


20-49 


20-49* 


20-55 


20-55* 


21-6 


21-6* 


21-9 


21-9* 




21-12 


21 -IP* 


21-15 


21-1 5# 


22-5 


22-5# 


22-6 


22-6* 


22-7 


22-7* 


22-12 


22-12* 




25-15 


25-1541 


25-20 


25-20# 


25-21 


25-21* 


25-32 


25-32* 


26-7 


26-7* 


26-11 


26-11* 




26-14 


26-1444 


27-12 


27-12# 


28-4 


23-444 


28-5 


28-5* 


28-7 


28-7* 


28-28 


28-28* 




28-29 


28-29* 


28-30 


28-30# 


28-33 


28-33* 


29-7 


29-7* 


29-14 


29-14* 


29-37 


29-37* 




30-11 


30-1 3 44 


31-13 


31-13# 


31-15 


31-15* 


32-43 


32-43* 


32-53 


32-53* 


33-9 


33-9* 




33-12 




33-13 


33-13# 


33-28 


33-2844 














ARCS 


7-5 


7—54} 


8-5 


8-5* 


9-5 


9-5# 


10-5 


10-5* 


1 1 -5 


11-5* 






BL.KPAD 


28-32 


30-27 


33-25* 




















CLKPC 


9-6 


9-6 






















CLKPS 


9-7 


9-7 






















COL 


12-46# 


28-6* 


28-23 


29-13 


29- 1 5 


33-26 


84-21* 


34-25* 










CONVAL 


32-25 


32-32$ 


32-41 




















CORUSR 


2-14 


22-8 






















CR 


12-7* 


12-75 


34-19 




















CRLF 


12-75* 


14-5 


14-52 


16-5 


16-11 


16-17 


1 6-23 


17-5 


18-6 


19-12 


19-22 


20-14 




tl~6 


22-5 


22-12 


25-32 


26-14 


27-12 


28-4 


28-7 


28-28 


28-29 


30-11 


31-15 


CSHBAS 


9-8 


9„fj 


18-18 




















CTRLQ 


12-9# 


12-63 


34-13 




















CTRLS 


12-10# 
























CURFRK 


9„9 


9-9 






















CUR JOB 


12-86* 


22-6 






















CXBJOB 


9- 1 


9-10 






















CXBOWN 


9- 1 1 


9- 1 1 






















DASH 


12-1 1# 
























DATTIM 


1 3-62 


1 4-544 






















DEVICE 


13-70 


24-54! 






















DEVSIZ 


11-13 


1 1 - J 3 






















DHAN 


11 -5# 


24-5 






















DIEARG 


2-1.1 


1.6-0 























T5DUMP — TSX-PIug crush dump MACRO V05. 04 Monday 21 -Dec -87 08:4*' Pacje 

Cross reference table (CREF V05. 04) 

DIEPC 2-11 7-13 7-13 

DIESP 2-11 7-12 7-12 20-15 

DIV32 14-33 14-37 1 5~8# 

DMPHND 2-11 16-10 

DMPOVL 2-11 16-12 

DMPTRP 13-32 13-76# 

DMPTXT 2-11 16-6 

DODUMP 2-4 13-2741 

DOSCHD 9-12 9- .12 

DVFLAG 11-11 11-11 

DVSTAT 11-12 11-12 

EQSTR 12-72# 19-17 22-7 25-21 

ERROR 13-63 16~5# 

EXCJOB 9-13 9-13 

FF 12~74# 13-6:1 

FREFRK 9-16 9-1.6 

FREIOQ 9-14 9-14 

FRKCQE 9-15 9-15 

FRKLEV 12~84# 21-12 

FRKPRI 9-17 9-17 21-10 

HANENT 1 1 -7 1 1 -7 

HANIOC 11-10 11-10 

HANPAR 11-8 11-8 

HANS I Z 11-9 11 -9 

INBSY 9- IB 9- IB 

INTLEV 12~83# 21-9 

INTLVL 9-19 9-19 21-7 

INTPRI 9-20 9-20 

INTSND 2-9 

IIMTSTK 2-9 20-20 20-33 

INVSTK 12-82# 20-55 

IOABFL. 9-21 9-2.1 

JLIN 10-5# 23-5 

JOB 13-64 22- 5* 

JSTK 2-9 20-41 20-46 

JSTKND 2-9 20-39 

KPAR6 2-13 13-51 

LACTIV 10-24 10-24 

LAFSIZ 10-34 10-34 

LBASE 10- IS 10-18 

LBSPRI 10-30 10-30 

LCDTYP 10-27 10-27 

LCLUNT 10-31 10-3.1 

LCMPL 10-36 10-36 

LEMTPC 10-39 10-39 

LF 12~e# 12-75 

LFWLIM 10-35 10-35 

LINCNT 10-23 10-23 

LINE J 3-69 23-JVH 

LIOCNT 10-22 10-22 

LIOHLD 10-33 10-33 

LJSW 10-38 10-33 

LMEMIN 10-32 10-32 

LNBLKS 10-20 10-20 

LNPRIM 10-28 10-23 

LNSBLK 10-21 10-2.1 



i 

i 



TSDUMP 


— T5X-P' 


i u :" c r i:i <:.- ' 


Cross reference 


table \\ 


LORBAS 


9-22 


9-22 


LOKSWP 


9-23 


9-93 


LPARBS 


10-19 


10-19 


LPARNT 


10-29 


1 0-29 


LPRG1 


10-25 


10-25 


LFRG2 


10-26 


1 0-2'6 


LSPND 


1 0-40 


10-40 


LSTATE 


10-17 


10- J 7 


LSW 


10-6 


10 -6 


LSWIO 


10-15 


10-11; 


LSW 11 


10-16 


10-16 


LSW2 


10-7 


10-7 


LSW3 


10-0 


10-8 


LSW4 


10-9 


10-9 


LSW5 


10-10 


10-10 


LSW6 


10-11 


1 0- 1 J. 


LSW7 


10-12 


10-12 


LSW8 


10-13 


10-13 


L.SW9 


10-14 


1 0- 1 4 


LSWPBK 


10-37 


10-37 


LXCL 


10-41 


1 0-4 J 


HAPUSR 


9-24 


9-24 


MAXDEV 


2-14 


11-5 


MEM256 


9-25 


9-25 


MEMSWP 


9-26 


9-26 


MIOFLG 


9-27 


9-27 


MISC 


1 3-68 


21-5# 


MODADR 


1 3-66 


18-51f 


MONTH 


12-59# 


14-17 


MSGBAS 


9-28 


9-28 


NCOL 


12-12# 


12-50 


NDL 


2-15 


1 0-23 


NIOL 


2-15 


10-31 


NLINES 


2- 1 5 


10-5 


NMFREQ 


9-29 


9-27 


MPL 


2-15 


1 0-28 


NSL 


2-15 


10-31 


NUMDEV 


2-14 




NUMON 


9-30 


9-30 


N.XTCOL 


29-4# 


~ iC3~./i ."/ 


OLIST 


17-8 


X O /-. <- . 


OPRINT 


34-7 


34-1 5* 


OSTACK 


20-26 


20-37 


OTABLE 


23-6 


24-6 


OTERM 


34~8# 




OUTBSY 


9-31 


9-3J 


OUTCHR 


14-13 


14-20 




33-28 


34-641 


OUTRAD 


14-19 


1 6- 1 6 


OUTSTR 


.1 3—61 


14-5 




17-5 


18-6 




21-9 


21-12 




26-11 


26-14 




30-11 


31~9# 


OUTVAL 


14-12 


i 4-25 


OVI..REG 


12-76# 


.1.9-13 



h dump MACRO 
<CREF V05. 04) 



18-15 
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12-51 
10-3.1 



10-31 



JO-50 

?7-5# 



14-43 

1 6-22 
1 4-26 
19-12 
21-15 
27-12 
31-15 
16-10 



1 '">_.«:;'"> 



10-41 



25-5# 
20-61 

14-48 



19- 


•16 


14- 


-52 


1 9 - 


13 


22- 


•5 


28- 


•4 


19- 


■20 



12-53 



z>o 



>8-- 1; 



29-9 



26- 5# 



14 50 



32 


15 


1 6~ 


5 


19- 


17 


22- 


6 


28- 


5 


22- 


11 



29-37 

33— 6 : ii 
16-6 

19-22 

22-7 

28-7 

25-31 



31-13 



16-7 
20-14 
22-12 
28-28 

26-10 



32-43 



16-11 
20-25 
25-15 
28-29 

26-13 



32-53 



16-14 
20-36 
2 5 -SO 
28-30 

30-15 



33-9 



16-17 
20-49 
25-21 
28-33 

30-38 



33-12 



16-20 
20-55 
25-32 
29-7 

32-9# 



33-13 



16-23 
21-6 
26-7 
29-14 



TSDUMP 




u s t r a '.:■ h 


dump MACRO 


905. 04 


Monday 2.1 


-Dec -87 08: 


42 Page S- 


-4 










Cross r 


efersn c q 


table (C 


~<EF 905. 04) 




















OVRADD 


ci ~" 1 ■"/ 


19- J 4 






















i OVRADR 


13-67 


19-J .Hi 






















PNAME 


11-6 


11-6 






















PRTREG 


7-5# 


i 7-7 






















t PSW 


2-1 
























PVON 


9-32 


9-n; 7 






















R50CHR 


33-9 


33-12 


33-13 


83-17* 


















1 RBUF 


12~44# 


13-39* 


13-40* 


1 3-4 1 


34-11 
















RCSR 


12-45* 


1 3-353 * 


34-6 


34-9 


















REG 


13-65 


17-5* 






















i SPDJOB 


9-33 


9-33 






















ibPSTR 


12-73# 


1 4-26 


28-33 


29-7 


















SR3FLG 


9-34 


9~;<4 






















™ Ow 


2-9 


20- .1 7 


20-22 




















SSEND 


?-9 


21-13 






















STACK 


13-71 


20-1 4* 






















i STKCNT 


12-80* 


26-7 






















STKDLM 


12-81# 


26-11 






















STKEMT 


12-79* 


20-49 






















1 STKINT 


12-73* 


20 -36 






















STKLVL 


9-35 


9-35 






















STKOVR 


12-85* 


21-15 






















{ STKSS 


12-77# 


20-25 






















STRADD 


7-5 


7-5# 


7"6 


7-6* 


7-7 


7-7* 


7-8 


7-8* 


7-9 


7-9# 


7-10 


7-10# 




7-11 


7-1 1* 


7-12 


7~12* 


7-13 


7-13* 


7-14 


7-14* 


7-15 


7-1 5# 


8-5 


8-5# 




8-6 


8-6*1 


8-7 


S~7# 


8-8 


8-8* 


8-9 


8-9* 


8-10 


8-10* 


8-11 


8-1 1# 




B- 1 2 


8-1211 


8-13 


8-13* 


9-5 


9-5* 


9 --6 


9-6# 


9-7 


9-7# 


9-8 


9-8# 




9-9 


9-9* 


9-10 


9-10* 


9 - 1 1 


9-1 1* 


9-12 


9-12* 


9-13 


9-13* 


9-14 


9-14# 




9-15 


9-1511 


9-16 


9-1 6# 


9-17 


9-17* 


9-18 


9-18* 


9-19 


9-19# 


9-20 


9-20# 




9-21 


9-21* 


O **'; *"> 

r f™ rr.. 


9-22* 


9-23 


9-23* 


9-24 


9-24* 


9-25 


9-25# 


9-26 


9-26# 




9-27 


9-27# 


9-28 


9-28* 


9-29 


9-29* 


9-30 


9-30* 


9-31 


9-3 1# 


9-32 


9-32# 




9-33 


9-33# 


9-34 


9-34# 


9-35 


9-35* 


9-86 


9-36* 


9-37 


9-37* 


9-38 


9-38* 




9-39 


9-3911 


9-40 


9-40* 


9-41 


9-4 1 * 


9-42 


9-42* 


9-43 


9-43* 


9-44 


9-44* 




9-45 


9-45* 


9-46 


9-4 6# 


9-47 


9-47* 


9-48 


9-48* 


9-49 


9-49* 


9-50 


9-50* 




9-51 


9-51 # 


9-52 


9-52# 


10-5 


10-5 


1 -5 


10-5* 


10-5* 


10-6 


10-6# 


10-7 




10~7# 


1 0-8 


10-8* 


10-9 


10-9* 


10-10 


10-10* 


10-1.1 


10-11* 


10-12 


10-12# 


10-13 




10-13# 


10-14 


10-14* 


10-15 


10-15* 


10-16 


10-16* 


10-17 


10-17* 


10-18 


10-18# 


10-19 




10-19# 


1 0-20 


10-20* 


10-21 


10-21* 


10-22 


10-22* 


1 0-23 


10~23# 


10-24 


10-24* 


10-25 




10-25* 


10-26 


10-26# 


1 0-27 


10-27* 


10-28 


1 0-28* 


10-29 


10-29* 


10-30 


10-30# 


10-31 




10-31* 


10-32 


10-32* 


10-33 


10-33* 


10-34 


10-34* 


10-35 


10-35* 


10-36 


10-36* 


10-37 




1 0-37# 


1 0-38 


10-38# 


10-39 


10-39* 


10-40 


10-40* 


10-41 


10-41* 


11-5 


11-5 


11-5 




ll-5# 


ll-5# 


1 1 -6 


1 1 6# 


1 1 -7 


1 1 -7* 


1 1 -8 


11-8* 


1 1 -9 


11-9* 


11-10 


11-10* 




11-11 


1 1 - 1 1 * 


11-12 


11-12* 


1 1-1 3 


11-13* 














( SVPAR5 


7-14 


7- 1 4 


12~24# 


13-52* 


















SVPAR6 


7-15 


7- 1 5 


12-254! 


1 3-51* 


















SVRO 


7—6 


7-6 


12-17* 




















i SVR1 


7-7 


"7 _ -'/ 


12-18* 




















SVR2 


"7 ,.... O 


7-3 


12-19* 




















SVR3 


7-9 


7_9 


1 2-20*! 




















i SVR4 


7-10 


7-10 


12-21* 




















SYR 5 


/ 11 


7-11 


12-22* 




















SVREG 


12-23* 


13-53 






















C SYSDAT 


2- 1 6 


14-6 






















SVTIMH 


2-17 


14-30 






















SYTIML 


2- 17 


14-" 31 






















i TACCR 


27-S 


29-£3* 
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TSDUMP — ■ TSX-Plus 
Cross reference ta; 



ich dump 
(CREF V05. 



MACRO 
04 ) 



TADR 


12- 534* 


2B--.I V<: 


TATT 


12-54# 


28- 10t: 


TBUF 


j. 2~42# 


1 3—46 i:_ 


TCLR 


tz. / — / 


28~12# 


TCSR 


12-43# 


13-45* 


TECOL 


12-51tt 


23-15*: 


TEIIMX 


12--53# 


23- 17t: 


TENABL 


7--5# 


7-6 




8-6 


8-7 




9—9 


9--.I <> 




9-2 1 


9-22 




9-33 


9-34 




9-45 


9-46 




10-9 


10-10 




10-21 


1 0-22 




10-33 


10-34 




11-8 


1 1 --V 


TINIT 


2 7- 6 


28-4^ 


T I OB AS 


9-36 


9-36 


TK1SEC 


2 -IS 


14-33 


TNHL 


2-15 


10-27 


TOTOM 


9—37 


9-37 


TOUT 


27-9 


30-5?! 


TRPAR5 




13-52 


TSCOL 


1P.-50U 


28-14 t: 


TSEMT 


2-12 


18-10 


TSEXEC 


c^— 1 cH 


1 8-9 


TRGEN 


2-12 


18-7 


TSINIT 


tz!.~~ i /.r". 


IS- J 1 


TSINX 


12--52# 


28- A 6« 


TSTIO 


2-12 


1 3-3 


TXARG 


1 2-6S# 


16-7 


TXDEV 


J2-71# 


16-20 


TXOID 


12-70# 


16-14 


TXSEG 


1 2-69# 




UBUSMP 


9-38 


9-33 


UIOCNT 


9-39 


9-39 


USP 


9-40 


9—40 


USRBAS 


9-41 


9-4 j 


USRJOB 


9-42 


9-42 


VBU5TP 


9-43 


9-43 


VCSHNB 


9-44 


9-44 


VDMTCR 


2-10 


1 3-34 


VMISC 


9"' 5# 


21-1 / 


VMXSF 


9 45 


9-4 5 


VMXSFC 


9-46 


9-46 


VNGR 


9-4 7 


9-47 


VNUMDC 


9-48 


9-48 


VPAR5 


2-13 


20 36 


VPAR6 




20 58 


VPLAS 


9-49 


9 -.4 9 


VSWPFL 


9-50 


9-50 


VSWPSL 


9-51 


c ? 51 


VUXIFL 


9- 52 


9-!'/'' 


XFLG 


12-634) 


34- 1 1 * 



28-30 

29-16* 

13-47* 

34-16 
28-31 
29-23 
7-7 
8-8 
9-1 1 
9-23 
9-35 
9-47 

10-1.1 
10-23 
10-35 
11-10 

18 12 



29-- 13* 



29-19 



34-12* 
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29-5* 
29-26 
34-18* 



29-15* 
29-24* 
7-8 
8-9 
9-12 
9-24 
9-36 
9-48 
10-12 
1 0-24 
10-36 
11-11 



29-29 



29-20* 



34 13 



2V--53* 
29-41 



29 30 

29-51* 
7-9 
8- 1 
9-13 

9-25 

9 ...3 ••/ 

9-49 

10-13 
10-25 
10-37 
11-12 



•43* 



29-50* 



30-2? 

29-52* 



29- 


-34 


30- 


-22 


T,. 


-10 


8- 


-11 


o_ 


-14 


9- 


-26 


9.. 


-38 


9. 


-50 


10- 


-14 


10- 


-26 


10 


-38 


11- 


-13 



29-48* 



30-10 



30-14 



29- 


-35* 


30 


•43 


7 


-1.1 


8- 


-12 


9- 


-15 


9- 


-27 


9- 


-39 


9- 


-51 


10 


-15 


10 


-27 


10 


-39 



30-40 



30-20 



30-28 



29-40 

7-12 

8-13 

9-16 

9-28 

9-40 

9-52 

10-16 

10-28 

10-40 



29-45* 

7-13 

9-5# 

9-17 

9-29 

9-41 

10-5# 

10-17 

10-29 

10-41 



29-46 

7-14 

9-6 

9-18 

9-30 

9-42 

10-6 

10-18 

10-30 

11~5# 



29-49# 

7-15 
9-7 
9-19 
9-31 
9-43 
10-7 
10-19 
10-31 
11-6 



8-5# 
9-8 
9-20 
9-32 
9-44 
10-8 
10-20 
10-32 
11-7 
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Cross reference table ■(CREF VOb. 04) 



DISABL 


3~7# 
























PRINT 


3-2'7# 


1 3-6 i 


.14-5 


1 4-26 


14-52 


16-5 


16-6 


16-7 


16-11 


16-14 


16-17 


16-20 




16-23 


17-5 


IS -6 


19-12 


19-13 


19-17 


1 9-22 


20-14 


20-25 


20-36 


20-49 


20-55 




21-6 


21-9 


21-12 


21-15 


22-5 




22-7 


22-12 


25-15 


25-20 


25-21 


25-32 




26-7 


26-11 


26-14 


27-12 


28-4 


28-5 


23-7 


28-28 


28-29 


28-30 


28-33 


29-7 




29-14 


30-1 1 


31-15 




















PVAL 


5-26# 


7-6 


7-7 


7-8 


7 9 


7-10 


7-11 


7-12 


7-13 


7-14 


7-15 


8-6 




3-7 


o —. Ci 


8-9 


8-10 


8-11 


8-12 


8-13 


9-6 


9-7 


9-8 


9-9 


9-10 




9-11 


9-1,2 


9-13 


9-14 


9- 1 5 


9-16 


9-17 


9-18 


9-19 


9-20 


9-21 


9-22 




9-23 


9-24 


9-25 


9-26 


9-27 


9-28 


9-29 


9-30 


9-31 


9-32 


9-33 


9-34 




9-35 


9-36 


9-37 


9-38 


9-39 


9-40 


9-4 1 


9-42 


9-43 


9-44 


9-45 


9-46 




9-47 


9-48 


9-49 


9-50 


9-5.1 


9-52 


1 0-6 


1 0-7 


10-3 


10-9 


10-10 


10-11 




10-12 


10-13 


10-14 


10-15 


10-16 


1 0- 1 7 


10-18 


10-19 


10-20 


10-21 


10-22 


10-23 




1 0-24 


10-25 


10-26 


10-27 


10-28 


10-29 


1 30 


10-31 


10-32 


10-33 


10-34 


10-35 




10~36 


1 0-37 


10-38 


10-39 


10-40 


10-41 


1 1 -6 


11-7 


1 1 -8 


11-9 


11-10 


11-11 




11-12 


1 1 - 1 3 






















STKDEF 


3- 1 7# 
























TBEG 


4-:l0# 


7-5 


8-5 


9-5 


10-5 


11-5 














TEND 


6-5# 


7-16 


8-14 


9-53 


10 42 


11-14 














TTYOUT 


3-39# 
33-13 


14-13 
33-23 


14-20 


.14-43 


14-48 


14-50 


29-37 


3.1-13 


32-43 


32-53 


33-9 


33-12 
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